home *** CD-ROM | disk | FTP | other *** search
/ CyberMycha Extra 2004 January / CyberMycha Extra 1-2004 (Poland) (Disc 2).bin / Pippi / gmfg.dir / Internal_35_fgScript.ls < prev    next >
Encoding:
Text File  |  2001-09-03  |  1.7 KB  |  91 lines
  1. property lastThingEaten, mouthLoc, godSprite, badSprite, godMember, badMember, originFrame, belly, lastFoodType, soundThing, dragOn
  2.  
  3. on new me
  4.   dragOn = 0
  5.   mouthLoc = point(408, 271)
  6.   sprites = []
  7.   repeat with n = 1 to 9
  8.     sprites[n] = n
  9.   end repeat
  10.   godSprite = []
  11.   repeat with n = 1 to 5
  12.     v = sprites.count
  13.     X = random(v)
  14.     godSprite[n] = sprites[X]
  15.     sprites.deleteAt(X)
  16.   end repeat
  17.   badSprite = []
  18.   repeat with n = 1 to 4
  19.     v = sprites.count
  20.     X = random(v)
  21.     badSprite[n] = sprites[X]
  22.     sprites.deleteAt(X)
  23.   end repeat
  24.   goodFoodMembers = []
  25.   badFoodMembers = []
  26.   repeat with n = 1 to 14
  27.     goodFoodMembers[n] = n
  28.   end repeat
  29.   repeat with n = 1 to 16
  30.     badFoodMembers[n] = n + 14
  31.   end repeat
  32.   godMember = []
  33.   repeat with n = 1 to 5
  34.     v = goodFoodMembers.count
  35.     X = random(v)
  36.     godMember[n] = goodFoodMembers[X]
  37.     goodFoodMembers.deleteAt(X)
  38.   end repeat
  39.   badMember = []
  40.   repeat with n = 1 to 4
  41.     v = badFoodMembers.count
  42.     X = random(v)
  43.     badMember[n] = badFoodMembers[X]
  44.     badFoodMembers.deleteAt(X)
  45.   end repeat
  46.   return me
  47. end
  48.  
  49. on reportOriginFrame me, pFrame
  50.   originFrame = pFrame
  51.   belly = 0
  52. end
  53.  
  54. on goBack me
  55.   go(originFrame + belly)
  56. end
  57.  
  58. on testFood me, pNum
  59.   case pNum of
  60.     1:
  61.       A = 1
  62.     2:
  63.       A = 2
  64.     3:
  65.       A = 2
  66.   end case
  67.   b = lastFoodType
  68.   c = A + b
  69.   lastFoodType = A
  70.   return c
  71. end
  72.  
  73. on initSprite me, pSprite
  74.   hit = 0
  75.   repeat with n = 1 to godSprite.count
  76.     if pSprite = godSprite[n] then
  77.       hit = godMember[n]
  78.       exit repeat
  79.     end if
  80.   end repeat
  81.   if hit = 0 then
  82.     repeat with n = 1 to badSprite.count
  83.       if pSprite = badSprite[n] then
  84.         hit = badMember[n]
  85.         exit repeat
  86.       end if
  87.     end repeat
  88.   end if
  89.   return hit
  90. end
  91.